home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg2 / g53.bas < prev    next >
BASIC Source File  |  1991-10-18  |  406b  |  17 lines
  1. 100 ' G53 T.WAKAMATSU 
  2. 110 CLS:PI=3.14159!
  3. 120 C1(1)=6:C1(2)=2:C1(3)=4:C1(4)=0
  4. 130 C(1)=4:C(2)=3:C(3)=5:C(4)=0
  5. 140 PSET(320,479)
  6. 150 FOR L=1 TO 4
  7. 160   C=C(L):K=C1(L)
  8. 170   FOR T=0 TO PI*2 STEP PI/96
  9. 180     X=SIN(55*T)*239+320
  10. 190     Y=COS(55*T)*239+240
  11. 200     LINE -(X,Y),PSET,%K
  12. 210     X=SIN(54*T)*90+320
  13. 220     Y=COS(54*T)*90+240
  14. 230     LINE -(X,Y),PSET,%C
  15. 240   NEXT T
  16. 250 NEXT L
  17.